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تعدد المسارات 


هذا الكتيب يتكلم عن تعدد المسارات في الفيجول بايزيك ويفترض بالقارئ أنه يعرف 
أساسيات اللغة والفئات والواجهات Classes & |nterfaces‏ 


ويحتوي على الموضوعات التالية: 


Threading in Windows Forms Applications ® 

Using the Thread pool استخدام بحيرة المساراٽت‎ ٠ 

Thread Synchronization ٽارlسnئlاl‎ jمازت‎ 

ه كيفية تنفيذ عملية في مسار آخر وإظهار النتيجة في التحكمات على النموذج 


Threading in Windows Forms Applications 


تكمن المشكلة في أغراض Windows Frm‏ هو أن التحكمات والنموذج ذات نفسه هو أنه يجب الوصول إليهم حصريا من 
خلال المسار الذي قام بإنشائهم وفي الحقيقة كل أغراض ء٣۲٥۴‏ sسهلكماW‏ تعتمد على امله۷M‏ 5۲۸ وذلك بسبب أنها جميعا معتمدة على 
هيكلية رسائل ۷1۸32 والتي ترث مسارات الغرفة لعل ةء۲٣-٤٣ع‏ "هم۸ مما يعني أنه يمكنك إنشاء النموذج أو التحكم على أي مسار 
تريده ولكن جميع الطرق المرتبطة به يجب استدعاؤها من نفس المسار. مما يؤدي إلى ظهور العديد من المشاكل بسبب أن أقسام الدوت نيت 
الأخرى تستخدم املم" ع”الةء۲ط۲-ععا۴ ومزج كلا النوعين بدون حكمة تعتبر فكرة سيئة وحتى لو لم تقم بإنشاء مسار بشكل واضح في 
كودك ربما ستظهر لك بعض المشاكل في جميع الأحوال فمثلا عندما تحاول الوصول إلى عنصر واجهة مستخدم ٣٤۸۲‏ ٠|اع‏ الا من خلال 
الطريقة ماج۴ لنوع ما ونحن نعلم أن الطريقة مأاه ۴٠‏ يتم تتفيذها على مسار مختلف عن المسار الرئيسي 


The ISynchronizelnvoke Interface 

عناصر التحكم الوحيدة التي يمكنك استدعاؤهم من مسار آخر هم الذين يتم عرضهم من خلال الواجهة ISynchronizelnvoke‏ 
التي تمتلك الطرائق e‌k)ەBeginInvo‏ و Endınvoke‏ و الخاصية 4ءRequireءvokeم!‏ القابلة للقراءة فقط. حيث تعيد الخاصية 
InvokeRequired‏ القیمة م ں٣٣‏ إذا کان المستدعي لا يستطیع الوصول إلى التحكم مباشرة وذلك عندما يعمل المستدعي على مسار مختلف 
عن المسار الذي تم إنشاء التحكم فيه ففي هذه الحالة يحب على المستدعي استدعاء الطريقة ٠)ه۷ه٠‏ للوصول إلى أي عنصر خاص بالتحكم 
وهذه الطريقة متزامنة لهذا يتم إيقاف المسار المستدعي حتى يكمل مسار |ل تتنفيذ الطريقة. أو يمكن للمسار المستدعي استخدام الطرائق 
Beginlnvoke‏ و nvokeاEnd‏ لتنفیذ العملية بشکل لا متزامن. 
تأخذ الطريقة م )ه |١۷‏ إجراء مفوض يشير إلى طريقة (طن؟ أو ۸٣هام‏ ں۴) ويمكنه أخذ مصفوفة من النوع اء عزط0 كمحدد ثاني إذا كانت 
الطريقة تتوقع واحد أو أكثر من المحددات وتضمن هيكلية نماذج ويندوز أن الإجراء الذي يشير إليه المفوض يتم تنفيذه في المسار إل لهذا 
يمكنه بأمان الوصول إلى أي تحكم على النموذج. 
سنرى كيف يمكننا استخدام الطريقة ء)ه۷,| للوصول إلى تحكم من مسار غير المسار ال حيث يظهر لنا المثال التالي كيف يمكننا زيارة 
جميع المجلدات ضمن شجرة مجلد من مسار تانوي بينما يتم إظهار السم المجلد في تحكم |عطهج] وأول شئ سنقوم بعمله هو تحديد طريقة 
تقوم بعمل الإظهار المطلوب التي يمكنها أن تكون مجرد إجراء بسيط 


' This method must run in the main UI thread. 
Sub ShowMessage (ByVal msg As String) 
Me.lblMessage.Text = msg 
Me.Refresh () 
End Sub 


فک لجرا ء قوی كبر لك ار رر بح فن ذف مقر کن جوا ع ی افر کی کے مارک ن 
جميع الطرائق ضمن النموذج 


' A delegate that can point to the ShowMessage procedur 
Delegate Sub ShowMessageDelegate (ByVal msg As String) 

'" An instance of the delegate 

Dim threadSafeDelegate As ShowMessageDelegat 


وستحتاج لطريقة تبدأ المسار الثانوي مثلا إجراء معالجة الحدث )اح لزر أوامر 0۸غBut‏ 


' Parse the c:\Windows directory when the user clicks this button. 
Private Sub btnSearch Click (ByVal sender As Object, ByVal e As EventArgs) 
Handles btnSearch.Click 
Dim t As New Thread (AddressOf SearchFiles) 
tL.Start ("c:\windows") 
End Sub 


وأخيرا تقوم بكتابة الكود الذي سيعمل على المسار الثانوي حيث أنه من الضروري لذلك الكود أن يستطيع الوصول للتحكم معهءءمM|اط|‏ 
باستدعاء الطريقة معةءومN 6۸٥۷‏ وهذا يتم من خلال الطريقة ع)هم۷م| في فئة النموذج ءءهاZ٣‏ ص۳٣٠۴‏ أو الطريقة م)م۷م| لأي تحكم 
تخرد غل اللعزذج والئى تكرن كاف ها سا 


' (This method runs in a non-UlI thread.) 


Sub SearchFiles (ByVal arg As Object) 

' Retrieve the argument. 

Dim path As String = arg.ToString () 
' Prepare the delegat 


threadSafeDelegate = New ShowMessageDelegate (AddressOf ShowMessage) 
' Invoke the worker procedure. (The result isn't used in this demo.) 
Dim files As List (Of String) = GetFiles (path) 


' Show that execution has terminated. 

Dim msg As String = String.Format ("Found {0} files", files.Count) 
Me. Invoke (threadSafeDelegate, msg) 

End Sub 


' A recursive function that retrieves all the files in a directory tree 
' (This method runs in a non-UlI thread.) 

Function GetFiles (ByVal path As String) As List (Of String) 

' Display a message. 

Dim msg As String = String.Format ("Parsing directory {0}", path) 

Me. Invoke (threadSafeDelegate, msg) 

' Read the files in this folder and all subfolders. 

Dim files As New List (Of String) 

For Each fi As String In Directory.GetFiles (path) 

files.Add(fi) 

Next 
For Each di As String In Directory.GetDirectories (path) 
files.AddRange (GetFiles (di) ) 

Next 

Return files 

End Function 


وستتعقد العملية أكثر إن احتجنا لاستخدام الطريقة ShowMessage‏ لی جمیع المسارات فالطريقة 6٥٤۴|٥5‏ مثلا يمكن استدعاؤها من 
المسار إلا وفي هذه الحالة عمل الاستدعاء باستخدام الطريقة مء |۷٥)‏ يضيف استباقا للأمور يجب تجنبه لذلك يجب علينا فحص قيمة 
الخاصية dع۲اu‏ »م۸ )م۷م| واستخدام الطريقة العادية إن كانت تعيد القيمة عمءاه۴ 


' (Inside the SearchFiles and GetFiles methods) 
If Me.InvokeRequired Then 
Me. Invoke (threadSafeDelegate, msg) 
Else 
ShowMessage (msg) 
ERAN LEÊ 


والطريقة الأفضل من ذلك بدلا من فحص الخاصية vokeRequiredم|‏ من أجل كل مستدعي سنقوم بفحصها من داخل الطريقة 
ShowMessage‏ 


' This method can run in the UI thread or in a non-UlI thread. 
Sub ShowMessage (ByVal msg As String) 
' Use the Invoke method only if necessary. 


If Me.InvokeRequired Then 
Me. Invoke (threadSafeDelegate, msg) 
Return 

End If 


Me.lblMessage.Text = msg 
Me.Refresh () 
End Sub 


فبعد هذا التغيير أي قطعة من الكود ستحتاج لإظهار رسالة على التحكم معهءءم|ط| ستحتاج فقط لاستدعاء م عةءوم N‏ W«٥م؟‏ بدون القلق 
حول أي مسار يتم تنفيذ الكود عليه 

وفي بعض الظروف في فيجول بايزيك 2005 أو الفريموورك رقم 2 يقوم التطبيق بالوصول للتحكم عن طريق مسار غير مسار الإظهار 
thread‏ الا-nهم‏ بدون التسبب باية مشاكل فيمكن حدوث ذلك متلا عندما تحاول الوصول إلى تحكمات بسيطة مثل |عطج] أو عندما تقوم 


بعمليات لا تسبب إرسال رسائل ۷1,32 في الخلفية كما أن العديد من الخصائص يمكن قراءتها وليس تعديلها بدون التسبب بمشاكل وذلك 
لأن قيمة تلك الخصائص مخزنة في عنصر ضمن تحكم الدوت نيت 


The BackgroundWorker Component 

على الرغم من أن الواجهة nvokeاonizeاSynch‏ تجنبك من الوقوع في المشاكل المتعلقة بالمسارات في تطبيقات نماذج ويندوز 
يحتاج معظم مطوري فيجول بايزيك لطريقة أفضل وأقل أخطاء فأنت تحتاج مثلا لطريقة بسيطة لإلغاء طريقة غير متزامنة بأسلوب آمن 
الشئ الذي لا توفره الواجهة المذكورة بشكل تلقائي. ومن أجل هذا السبب قامت مايكروسوفت بإضافة المكون Background Worker‏ إلى 
صندوق الأدوات واستخدامه سهل جدا مما يسهل عملية إنشاء تطبيقات ويندوز متعددة المسارات. 


يمتلك المكون Back grou n4 Wk)‏ خاصيتان مثيرتان للاهتمام فالخاصية WorkerReportsPr ogress‏ تکون قیمتھا مں۲r‏ إذا أطلق 
المكون الحدث dع‏ ع ProgressCha‏ والخاصية WorkerSupportsCcancellation‏ تكون قیمتھا مں"۲ إذا كان المكون يدعم الطريقة 
ance syn‏ وتكون القيمة الافتراضية لكلا الطريقتين عءاج۴ لذا يجب عليك ضبط قيمتهم إلى عں] إذا أردت الاستفادة من جميع مزايا 
هذا التحكم والمثال الذي سيطرح هنا یفترض أنه قد تم ضبط کلتا القیمتین إلى e‏ ں۲۲ ويتطلب استخدام lئaكوj Background Worker‏ 
بشكل عام العمليات التالية: 


.١‏ إنشاء إجراء معالجة للحدث )ه00۷ وملؤها بالكود الذي تريد أن يتم تنفيذه على المسار الثانوي ويتم تشغيل هذا الكود عندما يتم 
استدعاء الطريقة R١۷۲) ٠۲۸ءر ۸٥‏ وهي تقبل محددا يتم تمريره لإجراء معالجة الحدث 00۷٥۲)‏ حيث لا يمكن للكود 
الموجود هناك الوصول مباشرة للتحكمات على النموذج لأنه يعمل في مسار آخر 

۲. استخدم الطريقة ءوعاعه ۴٣‏ ۲۲مممR‏ من داخل الحدث )ه0۷ عندما تريد الوصول إلى عنصر على النموذج وهذه الطريقة 
تطلق الحدث 4٥ع Zz‏ ءءء ror‏ إذا كانت قيمة الخاصية ssئReportsProgre-Worker‏ هي rue‏ وإلا سیتم إطلاق استثناء 
Worker-ReportsProgress‏ في حالة كون قيمتها ماج۴ والكود في إجراء معالجة الحدث 4عع"Z۸2٣ءءمrعPro‏ يعمل في 
نفس المسار الا ولهذا يمكنه الوصول بأمان لأي من تحكمات النموذج 

۳. استخدم الطريقة ء٣‏ رء4|عء۸ھCa‏ للتحكم Worker‏ undداعBack‏ لإيقاف المسار الثانوي مباشرة وهذه الطريقة تستدعي ضبط 
llخlصية WorkerSupportsCancellatio n‏ إلى rue‏ وإلا سیتم إطلاق wlتڎliء d0 peration Exception‏ iاnvaا‏ في حالة 
كون قيمتها مءإه۴ ويجب على الكود في )ه0۷ التحقق دوريا من الخاصية ع”أل١‏ ه۸۴ هااةاامء" ه٤‏ والخروج بأمان عندما 
تصبح قیمتھا مں ٣آ‏ 

.٤‏ كتابة إجراء معالجة للحدث لء†ءام Run N ork er0»‏ إن كنت تريد القيام بأية أعمال عندما ينتهي عمل المسار الثانوي إما 
بشكل طبيعي أو بواسطة الإلغاء والكود في إجراء معالجة هذا الحدث يعمل في المسار |ل لذا يستطيع الوصول لجميع عناصر 
ا 

وبشكل عام فالكود في معالج الحدث )ه00۷ يجب أن يعيد قيمة للمسار الأساسي بدلا من تعيين هذه القيمة في حقل على مستوى الفئة فعلى 
الكود تعيين هذه القيمة للخاصية ااإuءمR‏ للغرض ع۸۲٥۷٤‏ )اه 0W‏ فتكون هذه القيمة متوفرة للمسار الأساسي بواسطة الخاصية 
Result‏ للغرض Run WorkerCcompاleted EventArgs‏ الممرر للحدٿث etedاWorkerComp Run‏ وهذا کود نموذجي یستخدم 
illصر BackgroundWorker‏ 


' The button that starts the asynchronous operation 


Private Sub btnStart Click (ByVal sender As Object, ByVal e As EventArgs) 
Handles btnStart.Click 
Dim argument As Object = "abcde" ' The argument 


BackgroundWorker1.RunWorkerAsync (argument) 

' Disable this button, and enable the "Stop" button. 
btnStart.Enabled = False 

btnStop.Enabled = True 

End Sub 


' The button that cancels the asynchronous operation 


Private Sub btnStop_ Click (ByVal sender As Object, ByVal e As EventArgs) 
Handles btnStop.Click 

BackgroundWorker1.RunWorkerAsync (argument) 

End Sub 


' The code that performs the asynchronous operation 


Private Sub BackgroundWorkerl DoWork (ByVal sender As Object, _ 
ByVal e As DoWorkEventArgs) Handles BackgroundWorker1. DoWork 
Retrieve the argument. 

Dim argument As Object = e.Argument 

Dim percentage As Integer = 0 


' The core of the asynchronous task 
Do Until BackgroundWorker1.CancellationPending 
' Report progress when it makes sense to do S0. 
BackgroundWorker1.ReportProgress (percentage) 
Loop 
' Return the result to the caller. 
.Result = primes 
End Sub 


' This method runs when the ReportProgress method is invoked. 


Private Sub BackgroundWorkerl ProgressChanged (ByVal sender As Object, 
ByVal e As ProgressChangedEventArgs) Handles _ 
BackgroundWorker1.ProgressChanged 


' Tt is safe to access the user interface from here. 


For example, show the progress on a progress bar or another control. 
ToolStripProgressBarl1.Value = e.ProgressPercentag 
End Sub 


' This method runs when the asynchronous task is completed (or canceled). 


Private Sub BackgroundWorkerl RunWorkerCompleted (ByVal sender As Object, 
ByVal e As RunWorkerCompletedEventArgs) Handles _| 
BackgroundWorker1.RunWorkerCompleted 

It is safe to access the user interface from here. 


' Reset the Enabled state of the Start and Stop buttons. 
btnStart.Enabled = True 

btnStop.Enabled = False 

End Sub 


يظهر لك المثال التالي کیف یمکن اس ستخدام العنصر Background Worker‏ للبحث عن الملفات في مسار غیر متزامن وهي نفس المشكلة 
التي طرحت عند الحديث عن مcه؟إهnt|‏ Synchronizelnvokeا‏ مط في هذا الموضوع سابقا وبهذا يمكنك مقارنة الطريقتين بسهولة. 
وستكون النسخة الجديدة المعتمدة على ٣ع‏ )اه 0W‏ ”نها ع)عه8 أكثر تعقيدا بقليل بسبب أنها تدعم الإلغاء لعمل غير متزامن 


' The result from the SearchFiles procedure 
Dim files As List (Of String) 

' We need this variable to avoid nested calls to ProgressChanged. 
Dim callInProgress As Boolean 

' The same button works as a Start and a Stop button. 

Private Sub btnStart Click (ByVal sender As Object, ByVal e As EventArgs) 
Handles btnStart.Click 

If btnStart.Text = "Start" Then 

IstFiles.Items.Clear () 

Me.BackgroundWorker1.RunWorkerAsync ("c:\windows™") 


Me.btnStart.Text = "Stop" 
Else 
Me.BackgroundWorker1.CancelAsync () 
ERQ. EÊ 
End Sub 


' The code that starts the asynchronous file search 


Private Sub BackgroundWorkerl DoWork (ByVal sender As Object, _ 
ByVal e As DoWorkEventArgs) Handles BackgroundWorker1. DoWork 


' Retrieve the argument. 

Dim path As String = e.Argument.ToString () 

' Invoke the worker procedure. 

files = New List (Of String) 

SearchFiles (path) 

' Return a result to the RunWorkerCompleted event. 

Dim msg As String = String.Format ("Found {0} files", files.Count) 
e.Result = msg 

End Sub 


' A recursive function that retrieves all the files in a directory tree. 
Sub SearchFiles (ByVal path As String) 
' Display a message. 


Dim msg As String = String.Format ("Parsing directory {0}", path) 
' Notice that we don't really use the percentage; 

' instead, we pass the message in the UserState property. 
Me.BackgroundWorker1.ReportProgress (0, msg) 


' Read the files in this folder and all subfolders. 
' Exit immediately if the task has been canceled. 
For Each fi As String In Directory.GetFiles (path) 
If Me.BackgroundWorker1.CancellationPending Then Return 
files.Add (fi) 
Next 
For Each di As String In Directory.GetDirectories (path) 
If Me.BackgroundWorker1.CancellationPending Then Return 
SearchFiles (di) 
Next 
End Sub 


Private Sub BackgroundWorkerl ProgressChanged (ByVal sender As Object, 
ByVal e As ProgressChangedEventArgs) _ 

Handles BackgroundWorkerl1l.ProgressChanged 

' Reject nested calls. 

If callInProgress Then Return 


callInProgress = True 

' Display the message, received in the UserState property. 
Me.lblMessage.Text = e.UserState.ToString () 

' Display all files added since last call. 


For i As Integer = lstFiles.Items.Count To files.Count - 1 
IstFiles.Items.Add(files (i) ) 

Next 

Me.Refresh () 

' Let the Windows operating system process message in the queue. 

' If you omit this call, clicks on buttons are ignored. 

Application. DoEvents () 

callInProgress = False 

End Sub 


Private Sub BackgroundWorkerl RunWorkerCompleted (ByVal sender As Object, 
ByVal e As RunWorkerCompletedEventArgs) _ 

Handles BackgroundWorker1.RunWorkerCompleted 

' Display the last message and reset button's caption. 


Me.lblMessage.Text = e.Result.ToString ()‏ 
btnStart.Text = "Start"‏ 
End Sub‏ 
والكود هنا یشرح نفسه ماعدا إجراء الحدث Progress Changed‏ حیٹ یجب ن يتضمن الكود استدعاء للطريقة 


Application.DoEvents‏ وإلا لن يتمكن التطبيق من معالجة الأحداث المنطلقة مثل حدث النقر على الزر ماك أو أي عمل آخر ممکن 
إضافته للواجهة ومع ذلك فاستدعاء هذه الطريقة سيسبب استدعاءات معششة للإجراء ProgressChanged‏ مما قد يسبب إطلاق استثناء 


stack verflow Exception‏ ومن أجل عدم حدوث هذا یتم استخدام حقل منطقي مساعد r5‏ nPاااca‏ لتجنب حدوث مثل هذه 
الاستدعاءات المعششة 

لاحظ أيضا أن هذا التطبيق لا يحتاج للإعلام عن نسبة التقدم للمسار الرئيسي ويستخدم الطريقة ۲٥559‏ ع٥0۲۴۲‏ مء R‏ فقط لتنفيذ جزء من 
الكود في المسار الرئيسي للبرنامج والرسالة الفعلية للإظهار يتم تمريرها للخاصية عtة†؟۲عءل‏ وإن كان تطبيقك يستخدم 2۲ط وع عه۲م أو 
أي مؤشر آخر للتقدم يجب عليك تجنب استدعاء الطريقة ء٥۲‏ عه۲۲۴۲همءR‏ بدون داعي لأنها تتسبب بتبديل المسارات وتكون مكلفة كثيرا 
عندما يتعلق الأمر بوقت المعالجة وفي هذه الحالة يجب عليك تخزين مؤشر التقدم في حقل في الفئة واستدعاء الطريقة فقط في حالة حدوث 
تقدم فعلي 


Dim currentPercentage As Integer 


Private Sub BackgroundWorkerl DoWork (ByVal sender As Object, _ 
ByVal e As DoWorkEventArgs) Handles BackgroundWorker1. DoWork 


Const TotalSteps = 5000 
For i As Integer 1 To TotalSteps 


' Evaluate progress percentag 


Dim percentage As Integer = (i * 100) \ TotalSteps 
' Report to UI thread only if percentage has changed. 
If percentage <> currentPercentage Then 
BackgroundWorker1.ReportProgress (percentage) 
currentPercentage = percentag 
End If 
Next 
End Sub 


Using the Thread pool استخدام بحيرة المسارات‎ 


إنشاء العديد من المسارات قد يسبب انخفاض أداء النظام بسرعة وخاصة عندما تصرف هذه المسارات معظم وقتها في حالة سبات 
أويعاد تشغيلها بصورة دورية بغرض قراءة مصدر ما أو تحديث الإظهار. ولتحسين أداء كودك يمكنك إعادة ترتيب بحيرة المسارات بشكل 
يضمن أكفأً استخدام للموارد باستخدام بعض الأغراض وا عزط0 الموجودة في مجال الأسماء عاك ة٥۲٣‏ ."ء6 بحيرة المسارات 


The ThreadPool Type 
والتي تحتاج لإجراء مفوض‎ "hreadP001.QueueUserWorkltem يتم إنشاء بحيرة المسارات عندما تقوم باستدعاء الدالة‎ 
وغرض اءهزط0 اختياري يستخدم لتمرير البيانات للمسار والإجراء المفوض یجب أن یشیر إلى طںء يمرر‎ WaitCallback delegate 
له محدد وحيد من النوع زط0 بحيث تكون قيمته محتوية على البيانات التي نريد تمريرها للمسار أو ع, ۸1اه عندما لا توجد بيانات‎ 

نريد تمريرها وقطعة الكود التالية تبين لك كيف يمكنك استخدام عدد كبير من المسارات لاستدعاء إجراء في فة ووها٣‏ 


For i As Integer = 1 To 20 

' Create a new object for the next lightweight task. 

Dim task As New LightweightTask () 

' Pass additional information to it. (Not used in this demo.) 
task.SomeData = "other data" 
' Run the task with a thread from the pool. 
' (Pass the counter as an argument.) 
ThreadPool.QueueUserWorkItem (AddressOf task.Execute, i) 


Next 


وقطعة الكود التالية تحتوي على الكود الذي يتم تنفيذه فعلا عندما يتم سحب المسار من البركة 


Class LightweightTask 

Public SomeData As String 
' The method that contains the interesting code 
(Not really interesting in this example) 
Sub Execute (ByVal state As Object) 

Console.WriteLine ("Message from thread #{0}", state) 
End Sub 
End Class 


والمسار العامل يمكنه تحديد فيما إذا كان قد أخذ من بحيرة المسارات أم لا بتحري قيمة الخاصية 

hread.Current Thread. lsThread Pool Thread‏ ويمكنك معرفة العدد الأقصى للمسارات في البركة باستدعاء الطريقة الساكنة 
Threads‏ hreadPo01.GetMaxا‏ وعدد المسارات المتاحة حاليا باستدعاء الطريãة ThreadPool.GetAvaila ble Threads iS‏ . 
كما تم إضافة طريقة جديدة ءلةء Na»‏ ء5 في الفريموورك 2 .2.0 )ا0 w‏ ع۴2۳ N۲‏ تمكنك من تغيير العدد الأقصى للمسارات 


الموجودة في البركة 


' Maximum 30 worker threads and maximum 10 asynchronous I/O threads in the pool 
ThreadPool.SetMaxThreads (30, 10) 


في بعض الأحيان قد تحتار في نقطة تساؤل هل أقوم بإنشاء المسار بنفسي أم أستعيره من بحيرة المسارات. وتظهر هنا قاعدة جيدة: استخدم 
فئة المسارات وءهاء ۲۸۲٠2١0‏ عندما تريد تنفيذ عملية تريد تنفيذها بأسرع وقت أو عندما تريد القيام بعملية تستهلك الوقت ولا يتم تنفيذها 
كثيرا وفي معظم الحالات بشكل عام يجب عليك استخدام بحيرة المسارات. 


The Timer Type 

تقدم الفريموورك عدة أنواع من المؤقتات كل منها يمتلك نقاط قوته وضعفه. فمثلا يجب عليك استخدام التحكم 
stem.Windows.Forms.rimerرS‏ عندما تقوم بالعمل علی تطبیق من النوع کہه‌اځھicاممa Windows ۴٥۲m5‏ وان لم یکن برنامجك 
يمتلك واجهة للمستخدم يجب عليك عندها استخدام الفنة |r‏ 1.عSystem.rhreadin‏ أو الفئة System .rimers. Primer‏ وتعتبر ھاتان 
الفئتان متساويتين في العمل تقريبا والشرح التالı system.Threading.Timer le‏ isطبق‏ يض Jeذآ” System. Timers. Timer‏ 


الفئة ime‏ في مجال الأسماء ع” أل ه٠۲٣‏ .”مورك يقدم طريقة بسيطة لمؤقت يستدعي إجرائية محددة حيث يمكنك استخدام 
هذ اففة لجدرنة عمل ف رفك مين فى الستقل ركن قفد الك ران آلذي ناجه ما كن انتا من مرة ورالحكة قما فرق وات المرقت 


يأخذ أربعة محددات` 


٠‏ إجراء مفوض مtهعءاعل‏ )عهطااج٣۲مصiآ‏ يشير إلى الإجراء الذي يستدعى عندما ينتهي زمن المؤقت ويجب أن يكون هذا 
الإجراء من النوع انك يأخذ محدد واحد من النوع زط0 

ه غرض اء عزط0 يتم تمريره للإجراء الذي يشير إليه المفوض ويمكن أن يكون من عدة أنواع كسلسلة نصية أو مصفوفة أو 
مجموعة 0۸†ءمااهع أو أي نوع بيانات آخر يحتوي على البيانات التي سيتم تمريرها للإجراء وإن لم تكن تحتاج لتمرير قيم 
استخدم ع ااه بکل بساطة 

قيمة من النوع TimeSpan‏ تحدد زمن المؤقت الذي سیتم استدعاء الإجراء بعده كما يمكن تحدیدها باستخدام قيمة من النوع Long‏ 
أو مععtمال‏ وفي هذه الحالة يقاس الزمن بالميللي ثانية ( 1000/1 من الثانية) وعند تمریر ع اہ ا۴ ہ|.t ٦|٣‏ كقيمة لا يتم 
إطلاق المؤقت أبدا أو القيمة 0 صفر لإطلاق المؤقت مباشرة 

ه قيمة من النوع ١م5٠" ٣|‏ تحدد زمن المؤقت والتي بدورها تحدد زمن تكرار إطلاق المؤقت بعد المرة الأولى. وهذه أيضا يمكن 
تحديدها بقيمة من النوع ع”١٠|1‏ أو ١ععهامال‏ وهنا أيضا يصبح الوقت مقاسا بالميللي تانية ويمكنك تمرير القيمة 1 أو 
finite‏ nا.imeoutا‏ لإطلاق المؤقت مرة واحدة فقط. 


وهذه القيم التي تمررها لباني المؤقت غير متوفرة كخصائص. وبعد تشغيل المؤقت يمكنك تغيير هذه القيم فقط با ستخدام الطريقة Change‏ 
method‏ والتي تأخذ محددين يحددان وقت التشغيل وفترة زمن المؤقت ويمتلك Stop ءlڙج| Timer object‏ الذي يقوم بايقاف المؤقت 
الذي يتم إيقافه عبر استدعاء الإجراء مممءا0 وترينا قطعة الكود التالية مثالا عما تحدثنا عنه حول المؤقت 


Sub TestThreadingTimer () 

' Get the first callback after one second. 

Dim dueTime As New TimeSpan (0, 0, 1) 

' Get additional callbacks every half second. 

Dim period As New TimeSpan (0, 0, 0, 0, 500) 

' Create the timer. 

Using t As New Timer (AddressOf TimerProc, Nothing, dueTime, period) 
' Wait for five seconds in this demo, and then destroy the timer. 
Thread.Sleep (5000) 

End Using 

End Sub 


The callback procedure 
Sub TimerProc (ByVal state As Object) 
' Display current system time in console window. 


Console.WriteLine ("Callback proc called at {0}", Date.Now) 
End Sub 


وفي النهاية تجدر ملاحظة أن الإجراء المستدعى يتم تنفيذه على مسار مأخوذ من بركة المسارات لذا يجب عليك التحكم بالمتغيرات 
والمصادر الأخرى المستخدمة من قبل المسار الرئيسي للبرنامج عبر استخدام ما يدعى بتزامن المسارات 


Thread Synchronization ٽارlسمئlا تزامن‎ 


The SyncLock Statement 
خلال زمن التشغيل لا يوجد شئ يضمن لك أن يسير الكود بشكل نظامي بدون مقاطعات وتكون عملية التشغيل بدون مقاطعات عملية قاسية‎ 
على نظام التشغيل وخاصة عندما يكون عبارة عن بيئة متعددة المهام وفي معظم الحالات التي ستحتاجها ستكون قانعا بالدقة ضمن البرنامج‎ 
الواحد وذلك عند معالجة الكود فعلى سبيل المثال يكون كافيا لك ضمان أن مسار تنفيذ واحد ضمن التطبيق الحالي يستطيع تنفيذ قطعة معينة‎ 

من الكود في وقت محدد ويمكنك تحقيق ذلك بتضمين قطعة الكود تلك ضمن كتلة )عءماء"ر؟ ك"٤...)ءماعمرك‏ والذي يحتاج إلى متغير 
كمحدد له محققا المتطلبات التالية. 


ه يجب أن یكون مشترك بین جمیع المسارات ويکون في العادة متغير على مستوى الفئة وبدون اlخاصيû ThreadStatic‏ 
٠‏ يجب أن يكون من نوع مرجعي مثل ع” ا٣‏ أو †ءعزط0 واستخدام أنواع القيمة ينتج عنه خطأ في الترجمة 
٠‏ يجب أن لا يحتوي على القيمة عه وفي حال تمرير القيمة عم ٤ه‏ سيسبب أخطاء في زمن التنفيذ 


وفيما يلي مٿال عن كتلة )ckماSync‏ 


' The lock object. (Any non-Nothing reference value will do.) 
Private consolelock As New Object () 


Sub SynchronizationProblem Task (ByVal obj As Object) 
Dim number As Integer = CInt (obj) 
' Print a lot of information to the console window. 
For i As Integer = 1 To 1000 
SynclLock consoleLlLock 
' Split the output line in two pieces. 
Console.Write(" ") 
Console.Write (number) 
End SyncLock 
Next 
End Sub 


والكود السابق يستخدم المتغير )ع ماع امءمهء للتحكم بالوصول للغرض ا0١٥‏ وهو يشكل المصدر الوحيد المشترك بين جميع 
المسارات في المثال ولهذا فهو المصدر الذي يجب عليك تحقيق التزامن من أجله والتطبيقات الحقيقية يمكن أن تحوي العديد من كتل 
)ع0اncرك‏ والتي يمكن أن تستخدم نفس المتغير المحلي أو عدة متغيرات مختلفة من أجل اختلاف البصمة وهنا يجب عليك استخدام متغيرا 
مميزا من أجل كل نوع من أنواع المصادر المشتركة التي يجب عمل التزامن من اجلها أو من أجل مجموعة التعابير التي يجب تنفيذها ضمن 
المسار في نفس الوقت. 


وعندما تستخدم کتلة )مارک یتضمن الکود تلقائیا کتلة ۷٣آ ٣...۸‏ مخفية من أجل ضمان تحریر القفل بشکل صحیح إذا تم إطلاق 
استثناء ومن أجل هذا لا يمكنك القفز لعبارة داخل الكتلة )عماعءمرك. وإن كانت الكتلة )عءماءم رك موضوعة داخل إجراء خاص بتواجد 
معمهاtءم!|‏ لفئة ما وجميع المسارات العاملة ضمن إجراء في ذلك التواجد مء" هاءم| للفئة يمكنك تمرير م" لعبارة ال )عماءمرك وذلك 
بسبب أن هذا الغرض يحقق كل المتطلبات (يمكن الوصول إليه من جميع المسارات - وهو قيمة مرجعية - وبالتأكيد هو ليس عأط†هN)‏ 


Class TestClass 
Sub TheTask () 
SynclLock Me 
' Only one thread at a time can access this code. 


End SyncLock 
End Sub 
End Class 


ملاحظة: يمكنك استخدام 1٥‏ بهذه الطريقة فقط إن كنت تريد عمل التزامن على مصدر وحيد كملف محدد متلا أو نافذة الكونسول عاموئ"ه٤‏ 
0WلWin‏ وان كان لديك عدة کتل تزامن التي تحمي عدة مصادر ستستخدم بشکل تلقائي عدة متغيرات كمحددات لكتلة .SyncLock‏ والشئ 


الذي له أهمية أكبر مما ذكر هو أنه يجب عليك استخدام م كمحدد فقط إذا كانت الفئة غير مرئية خارج المجمع الحالي عدا ذلك يمكن 
لتطبيق آخر استخدام نفس التواجد ع هءم| للفئة ضمن كتلة )ءماءم رك مختلفة وبهذا فلن يتم تنفيذ عدة كتل من الكود بدون سبب حقيقي 
محدد وبشكل عام لا يجب عليك استخدام غرض ٥زط0‏ عام مرئي من مجمعات أخرى کمحدد لکتلة .Syncloc)‏ وتجدر الملاحظة أن 
العديد من الأكواد التي تراها على الانترنت تستخدم العامل GetType‏ للحصول على نوع الغرض المستخدم للقفل object‏ )ع0ا وذلك 
لحماية الطريقة الساكنة. 


عندما تستخدم عبارات )عماء مرك معششة للقيام بالتزامن لأغراض مختلفة من الضروري استخدام تسلسل تعشيش متطابق أينما احتجت له 
في تطبيقك فالتحري عن الأقفال بالتسلسل المطابق ذاته يجنبك الوصول إلى حالة الأقفال الميتة خلال العديد من أجزاء التطبيق وهذه القاعدة 
تنطبق أيضا عندما تقوم دالة تحتوي على )ماع مرك باستدعاء دالة أخرى تحتوي على )عماء"S۷‏ 


' Always use this sequence when locking objLockl and objLock2. 
SyncLock objLock1l 
SyncLock objLock2 


End SyncLock 
End SyncLock 


اعتبارات الأداء وlلتواجد‏ الكصوJ Performance Considerations and Lazy Instantiation‏ 
تضمين جميع الأكواد التي تستخدم متغيرات مشتركة ضمن كتلة )ءاءSyn‏ يؤدي إلى إبطاء تطبيقك كثيرا أو تخفيض أداؤه بشكل 
ملحوظ وبشكل خاص عندما يتم تشغيله على حاسب متعدد المعالجات فإن استطعت تجنب استخدام كتلة «kعماء‏ "رك بدون تعريض تكامل 
البيانات للخطر يجب عليك القيام به قطعيا فمتلا تخيل أنك تستخدم نمط وحيد بتواجد كسول ٣‏ 0ا†هآ† ةما رها في بيئة متعددة المسارات 


Public Class Singleton 
Private Shared m_ Instance As Singleton 
Private Shared sharedLock As New Object () 


Public Shared ReadOnly Property Instance() As Singleton 
Get 
SyncLlLock sharedLock 
If m Instance Is Nothing Then m Instance = New Singleton 
Return m Instance 
End SyncLock 
End Get 
End Property 
End Class 


تكمن المشكلة في الكود السابق أن معظم الوصولات للخاصية لا يحتاج إلى تزامن وذلك لأن المتغير الخاص ع٥١هاء"ا_"‏ يتم تعيينه مرة 
واحدة في المرة الأولى التي يتم فيها قراءة الخاصية وفي ما يلي طريقة أفضل لتحقيق التصرف المطلوب 


Class Singleton 
Private Shared m_ Instance As Singleton 
Private Shared sharedLock As New Object 


Public Shared ReadOnly Property Instance() As Singleton 

Get 

If m Instance Is Nothing Then 
SynclLock sharedLock 

If m Instance Is Nothing Then m Instance = New Singleton () 
End SyncLock 
End If 
Return m Instance 
End Get 
End Property 
End Class 


synchronized Objects ةialjتnll الأغراض‎ 

مشكلة أخرى متعلقة بالمسارات في الدوت نيت هي أن ليس جميع أغراض الدوت نيت N۲ object.‏ قابلة للمشاركة بأمان عبر 
المسارات N۲ objects are thread-safe‏ . ااج n0t‏ فعندما تقوم بكتابة تطبيق متعدد المسارات يجب عليك التأكد دوما من الوثائق للتأكد 
من أن الأغراض والطرائق التي تستخدمها آمنة للاستخدام عبر المسارات فعلى سبيل المتال جميع الطرق الساكنة للفئات ×مReg‏ و Match‏ 
أمنة عبر المسارات ولكن الطرق الغير ساكنة غير آمنة فيجب عدم استخدامها ضمن مسار مختلف وكذلك بعض أغراض الدوت نيت متثل 
Windows Forms objects and controls‏ لها العديد من الحدود التي تجعل فقط المسار الذي أنشأها يمكنه استدعاء طرقها وخصائصها 


Synchronized .NET Types iمازتملا أنواع دوت نيت‎ 
g Stack gs SortedList s Queue ڪs‎ Hashtable s ArrayList العديد من الأغراض الغير آمنة عبر المسارات بطبيعتها مثل‎ 


" 


extReaderاو ext Writer‏ و التعابير النظامية تقدم طريقة ساكنة قابلة للتزامن تعيد غرض أمن للمسارات thread-safe object‏ 
مکافئ للذي تم تمریره کما أن معظمها يعرض الخاصية IsSynchronized‏ التي تعید م ں٣‏ عندما تتعامل مع نسخة آمنة عبر المسارات 


' Create an ArrayList object, and add some values to it. 

Dim al As New ArrayList () 

al.Add(1): al.Add(2): al.Add (3) 

' Create a synchronized, thread-safe version of this ArrayList. 
Dim syncAl As ArrayList = ArrayList.Synchronized (al) 


' Prove that the new object is thread-safe. 
Console.WriteLine (al.IsSynchronized) ' => False 
Console.WritelLine (syncAl.IsSynchronized) ' => True 


' You can now share the syncAl object among different threads 


تذكر دائما أن التعامل مع هذه النسخة المتزامنة يكون أبطأً من النسخة الغير متزامنة وذلك بسبب أن كل طريقة تمر عبر سلسلة من 
الفحوصات الداخلية وفي معظم الحالات يمكنك كتابة كود فعال أكثر إذا استخدمت المصفوفات والمجموعات العادية regular arrays and‏ 
ns‌ectiااع‏ وقمت بمزامنة عناصرها باستخدام كتلة )مارك العادية 


The Synchronization Attribute 

استخدام الخاصية System .Runtime.Remoting.Contexts.Synchroniation‏ هي أبسط طریقة لتحقیق الوصول 
المتزامن للغرض اء زط0 بأكمله وبذلك يستطيع مسار واحد فقط الوصول إلى حقوله وطرائقه وبذلك أي مسار يستطيع استخدام الفئة ولكن 
مسار واحد فقط يستطيع تنفيذ أحد طرائقه إذا كانت الطريقة تنفذ كودا ضمن الفئة وءءداع وأي مسار يحاول استخدام هذه الفئة عليه الانتظار 
وبكلمات أخرى وكأن هناك كتل )ءماء مرك تغلف كافة طرائق الفئة مستخدمة نفس متغير الإقفال. والكود التالي يبين كيف يمكنك مزامنة فئة 
باستخدام الخاصية ع Synchronization att r|ط u‏ لاحظ أیضا أن الفئة یجب أن یتم وراٹتھا من conte×18B ou n0 bز ect‏ لیتم تعلیمھا ک 
context-bound object‏ 


System. Runtime. Remoting.Contexts.Synchronization()> _ 
Class Display 
Inherits ContextBoundObject 


End Class 


و خاصية التزامن عا طا†at‏ ynchronizationك‏ تضمن الوصول المتزامن لجميع الحقول والخصائص والطرق ولكنها لا توفر التزامن 
للأعضاء الساكنين static members‏ وهي تأخذ محددا اختیاریا یمکن أن تکون قیمتھ عں٣‏ أو False‏ أو أحد الثوابت التي توفرها الفئة 
Synchronization Attribute‏ والتي يمكنك الاطلاع علیها من مکتبة ۷805۸ 


The MethodImpl Attribute 
في معظم الحالات مزامنة فئة كاملة ستقتل التطبيق وحماية بعض الطرائق في تلك الفئة يكون كافيا في معظم الحالات حيث يمكنك‎ 
تطبيق هذا بتغليف كود الطريقة بكتلة )0اعSyn أو يمكنك استخدام تقنية أبسط مبنية على الصفة‎ 


System.Runtime.CompilerServices.Methodlmpl 


Class MethodImplDemoClass 
' This method can be executed by one thread at a time. 
<MethodImpl (MethodImplOptions.Synchronized)> _ 
Sub SynchronizedMethod () 


ERQ Sib 
End Class 


فتطبيق الصفة امصا١ه "٤۲‏ على عدة طرائق في الفئة يؤدي نفس الغرض من تغليف كامل تلك الطرائق بكتلة )ءماءمر؟ والتي تستخدم 
م1 كمتغير إقفال وبكلمات أخرى أي مسار يستدعي طريقة معلمة بالخاصية |ام" اكهط†" سوف يمنع أي مسار آخر من استدعاء 
الطريقة المعلمة بالخاصية |ام" ال١هط†م"‏ كما يمكنك استخدام هذه الخاصية على الطرائق الساكنة ويكون متغير الغرض الذي يستخدم 
ضمنيا لقفل الطرائق الساكنة مختلف عن متغير الغرض المستخدم لقفل الطرائق الأخرى للفة ءلهطاعص عع" هاءم؛ وبهذا فالمسار الذي 
يستدعي طريقة ساكنة معلمة بالصفة امصالهط†م" لا يمنع مسار آخر من استدعاء الطرائق الغير ساكنة ولهطام" عع هtاءم¡‏ والمعلمة 
بنفس الصفة 


Volatile Read and Write Operations عمليات القراءة والكتابة ائمتغيرة‎ 

عندما تتم مشاركة متغير عبر عدة مسارات والتطبيق يعمل على حاسب متعدد المعالجات يجب عليك وضع احتمال حدوث أخطاء 

إضافية في الحسبان وتكمن المشكلة في النظام متعدد المعالجات في أن لكل معالج الكاش الخاص به ولهذا فإذا قمت بالكتابة على حقل في فئة 
على مسار سيتم كتابة القيمة الجديدة في الكاش المرتبط مع المعالج الحالي ولا يتم نشرها مباشرة إلى الكاش الخاص ببقية المعالجات بحيث 
يمكنهم جميعا رؤية القيمة الجديدة. كما تحدث مشكلة مشابهة في الأنظمة ذات المعالج 64 بت الذي يمكنه إعادة ترتيب تنفيذ كتل عبارات 
الكود متضمنا عمليات القراءة والكتابة في الذاكرة وعملية إعادة الترتيب لم يكن لها تأثير ظاهر حتى الآن من أجل مسار واحد يستخدم جزءا 
معينا من الذاكرة ولكن ربما سيسبب ذلك مشكلة عندما يتم الوصول إلى نفس الجزء من الذاكرة بواسطة عدة مسارات. وتوفر الفريموورك 
حلان لهذه المشكلة وهما وزج من الطرائق 4ء Rء|ن†ةاهV‏ و VolatileWrite‏ والطريقة Memory Bie‏ ویوفر ھا جمیعا النوع 
Thread‏ 


تمكنك الطريقة ٥۷ء‏ |اهاه۷ من كتابة متغير والتأكد من أن القيمة الجديدة يتم كتابتها آليا في الذاكرة المشتركة بين جميع المعالجات ولا 
تبقى في المسجل الخاص بالمعالج حيث تكون مخفية عن بقية المسارات وبالمثل تمكنك الطريقة 4ه٠۴۸ء|ا†ةاه۷‏ من قراءة المتغير بطريقة 
آمنة لأنها تجبر النظام على تفريغ جميع ذواكر الكاش الموجودة قبل تنفيذ العملية وكلا الطريقتان محملتان تحميلا زائدا لمل ههام0۷ بحيث 
تأخذ متغيرات رقمية أو غرضية زط0 وبالمرجع كما في قطعة الكود التالية 


Class TestClass 
Private Shared sharedValue As Integer 


Function IncrementValue () As Integer 
Dim value As Integer = Thread.VolatileRead(sharedValue) 
value += 1 
Thread.VolatileWrite (sharedValue, value) 
Return value 
ENG FUTHCEETLON 
ENG TCIaASS 


والطريقتان المذكورتان تعملان بشكل جيد عندما نتعامل مع المتغيرات الرقمية أو الغرضية اءهزط0 ولكن لا يمكن استخدامهما من أجل 
أنواع أخرى من المتغيرات لأنه لا يمكنك استخدام نسخة الدالة التي تأخذ متغير من النوع اء زط0 بسبب عدم إمكانية الاعتماد على عملية 
التحويل عندما يكون المتغير ممررا بالمرجع مما يقودنا إلى الطريقة 82٣۴۲‏ "م" التي تقوم بتفريغ محتويات جميع ذواكر الكاش 


الخاصة بالمعالجات إلى الذاكرة الرئيسية وبهذا تضمن لك أن جميع المتغيرات تحتوى أحدث نسخة من البيانات التى تمت كتابتها إليهم فمثلا 
1 وبهدا تضمن جمیع تحتو من البي إِلْي 
يضمن الكود التالي أن الفنُةَ ٣ء‏ اعماك تعمل جيدا حتى على نظام متعدد المعالجات 


Class Singleton 
Private Shared mM Instance As Singleton 
Private Shared sharedLock As New Object () 


Public Shared ReadOnly Property Instance() As Singleton 
Get 
TÊ mM Instance. Tê Nothing Then 
SyncLlLock sharedLock 
TE mM InStance LS NOENIRNGS THEN 
Dim tempInstance As Singleton = New Singleton () 
' Ensure that writes related to instantiation are flushed. 
Thread.MemoryBarrier () 


m_ Instance = tempInstance 
ERG TÊ 
ENA SFISLOEK 
EH TE 
ReEûÛEn M Instance 
Had: Gêl 


End Property 
ENG CIQAS 


ويجب عليك استدعاء الطريقة ما٣2 ٣۷8‏ 0ه" مباشرة قبل أن يتم نشر القيمة الجديدة إلى بقية المسارات وفي المثال السابق يتم التأكد من 
اكتمال وضع القيمة في المتغير مء" هوام ص٠‏ قبل أن توضع في المتغير الذي ستتم مشاركته عبر المسارات 


The Monitor Type 
توفر كتلة )عاcعnصرك طريقة سهلة لاستخدام طريقة تتعامل مع مسائل التزامن ولكنها تكون غير ملائمة في العديد من الحالات‎ 
فمثلا لا يمكن للمسار اختبار كود في كتلة ععماءمرك وتجنب منعه من ذلك إذا كان مسار آخر ينفذ كتلة )عءماءمرك مرتبطة مع نفس‎ 
الغرض اءعزط0 وكتل )عماء مرك معرفة داخليا بواسطة ءاعءعزطه ٣ه†امه التي يمكن استخدامها مباشرة للحصول على مرونة أكثر‎ 
ويتم ذلك على حساب زيادة التعقيد في الكود. ولا يمكنك استخدام اءعزطه مامه" وحيد وفي الحقيقة جميع طرق عم همه التي‎ 
سيتم عرضها هي طرائق ساكنة وتعتبر ١٠ع هي الطريقة الأهم وهي تأخذ محدد من النوع اءعزط الذي يعمل كالمحدد الممرر لكتلة‎ 
وتكون له نفس الشروط من كونه من نوع مرجعي ومشترك ولا يمكن أن يحمل القيمة ,٣۸اه" وإن لم تمتلك المسارات‎ Sync) 
الأخرى قفلا على هذا الغرض فيقوم المسار الحالي بطلب ذلك القفل ويضبط قيمة العداد إلى 1 وإن امتلك مسار آخر القفل يجب على المسار‎ 
الطالب انتظار أن يقوم المسار الآخر بتحرير القفل حتى يصبح متوفرا وإن كان المسار الطالب يمتلك القفل أساسا يؤدي كل استدعاء للطريقة‎ 
إلى زيادة قيمة العداد. وتأخذ الطريقة †أ×۴.١0†اره غرض القفل †ءعزطه )ءه| كمحدد لها وتنقص قيمة العداد وعندما‎ Monitor .Enter 
تصل قيمة العداد للصفر يتم تحرير القفل ممكنا بقية المسارات من الحصول عليه ويجب أن يتم الموازنة بين استدعاء الطريقة‎ 

Monitor .Enter‏ والطریقة †|× 010۲.۴ أو لن یتم تحرير القفل أبدا 


' A non-Nothing module-level object variable 
Dim objLock As New Object () 
EFEY 
' Attempt to enter the protected section; 
' wait if the lock is currently owned by another thread. 


Monitor.Enter (objLock) 
' Do something here. 


Finally 
' Release the lock. 
Monitor.Exit (obj Lock) 
End Try 


إذا كان هناك احتمال في أن تطلق العبارات الموجودة بين الطريقتان ٣٥ع‏ و »ع استثناء يجب عليك عندها وضع كامل الكود ضمن كتلة 
۷٣آ‏ ...را لأنه من الضروري أن تقوم بتحرير القفل دوما وإن طلب مسار طريقة على مسار آخر تنتظر داخل الطريقة 

Monitor .Enter‏ سوف يستقبل ذلك المسار استثناء "hreadlnterrupted Exception‏ الذي یعتبر سببا إضافیا لاستخدام كتلة 

۷ ...۷ا والطریقتان ۲٥ع‏ و »ع الخاصتين ب ect‏ زط0 Monit‏ يسمحان لك باستبدال كتلة )عماءمرك ولكنهما لا يقدمان لك 
أية فوائد إضافية وسوف ترى المرونة الزائدة للفئة مامه عندما تطبق الطريقة ٣م" ٣۷٤‏ وهي مشابهة للطريقة ۲ه†"ع ولكنها تخرج 
وتعيد عماج۴ إذا كان لا يمكن الحصول على القفل خلال فترة زمنية محددة فمثلا يمكنك محاولة الحصول على ١٥]امه"‏ خلال 10 ميللي 
ثانية تم التخلي عن ذلك دون أن توقف المسار الحالي مدة غير محددة ويقوم الكود التالي بإعادة كتابة المثال السابق المعتمد على )عماعمرS‏ 
مستخدما اعزطاه ۲ه†امه" ويظهر لك المحاولات الفاشلة للحصول على القفل 


Try 
Do Until Monitor.TryEnter (consoleLlock, 10) 
Debug.WriteLine ("Thread " + Thread.CurrentThread.Name + _ 
" failed to acquire the lock") 


Loop 
' Split the output line in pieces. 
Console.Write(" ") 
Console.Write (Thread.CurrentThread.Name) 
Finally 

' Release the lock. 

Monitor.Exit (consoleLock) 
End Try 


The Mutex Type 
یمکن امتلاکه من قبل مسار واحد‎ Windows kerneا‎ obزect مبداً آخر للتزامن حیث أن ال ×ھMut هو‎ Mute× يوفر النوع‎ 
فقط في الوقت نفسه ويكون في حالة إشارة ع اهاء ۵اه" عاو هج عندما لا يمتلكه أي مسار. ویطلب المسار ملكیة ال ×عاں/ باستخدام‎ 

الطريقة الساكنة ع٣10‏ W.×ع†ں N‏ والتي لا تعود إلا بعد أن يتم تحقيق الملكية ويتم تحريرها باستخدام الطريقة الساكنة 
Mutex.ReleaseMutex‏ والمسار الذي يطلب ملكية ٤‏ عزطاه ×ع†ں" المملوك من قبله سلفا لا يمنع نفسه من الحصول على الملكية فيجب 
عليك في هذه الحالة استدعاء ×ع†ں N‏ ءءهءامR‏ بعدد مساوي من المرات وهذا مثال عن كيفية تعريف قسم متزامن باستخدام Mutex‏ 
object‏ 


' This Mutex object must be accessible to all threads. 
Dim m As New Mutex () 


Sub WaitOneExample () 
m.WaitOne () 
' Enter the synchronized section. 


' Exit the synchronized section. 
m.ReleaseMutex () 
End Sub 


وفي التطبيقات الحقيقية عليك استخدام كتلة Try‏ لحماية كودك من الأخطاء ووضع wlتدslE Release Mutex‏ في قسم Finally‏ وإن قمت 
بتمرير محدد اختياري للطريقة "٠٥‏ 0ه كزمن انتهاء فستعيد التحكم للمسار عندما يتم تحقيق الملكية بنجاح أو عندما ينتهي الوقت المحدد 
ويمكن معرفة الفرق بين النتيجتين باختبار القيمة المعادة حيث أن عمں٣]‏ تعني تحقيق الملكية و مءاج۴ تعني انتهاء الوقت 


' Attempt to enter the synchronized section, but give up after 0.1 seconds. 
If m.WaitOne (100, False) Then 
' Enter the synchronized section. 


' Exit the synchronized section, and release the mutex. 
m.ReleaseMutex () 


End If 


عند استخدام هذه الطريقة يوفر النوع ×عاں" آلية مكافئة للطريقة ۲ع" ٤۲۷١.١0أ" N0‏ بدون تقديم أية خصائص إضافية ويمكنك رؤية 
المرونة الإضافية للنوع »ع عندما ترى الطريقتين الساكنتين رم ة۷ و ١ا14ةW۷‏ الخاصتين به والطريقة وم۷ تأخذ مصفوفة 
من ءctعزطاه‏ ×عMut‏ وتعود عندما تحقق ملكية واحد من كاءعزطه ×ع†ں N‏ من تلك القائمة وفي هذه الحالة يصبح ال ×عاں" في حالة 
إشارة أو عندما ينتهي الوقت المحدد بالمحدد الاختياري والقيمة المعادة تكون عبارة عن مصفوفة من كاءعزطه ×ع†ں" التي أصبحت في 
حالة إشارة أو قيمة خاصة هي 258 عندما ينتهي الوقت المحدد. وتستخدم مصفوفة من ءاعزطاه ×ه†ں" عندما يكون لدينا عدد محدود من 
الموارد ونريد أن نربط کل واحد منھا بمسار حالما يصبح ذلك المصدر متوفرا وفي هذه الحالة يصبح ال Mutex objects‏ الذي في حالة 
إشارة يعني أن المصدر الموافق متوفر عندئذ يمكنك استخدام الطريقة ر١14‏ ۷.×ع†ں لمنع المسار الحالي حتى يصبح واحدا من ال 
Mutex objects‏ في حالة إشارة و النوع ×عاں" يرث الطريقة رم W4‏ من ءالمة ١ة‏ الخاصة بفئته الأب وهذا هيكل لتطبيق 
يستخدم هذه التقنية 


'"' An array of thr Mutex objects 
Dim mutexes() As Mutex = {New Mutex(), New Mutex(), New Mutex () } 


Sub WaitAnyExample () 

' Wait until a resource becomes available. 

' (Returns the index of the available resource.) 

Dim mutexNdx As Integer = Mutex.WaitAny (mutexes) 

' Enter the synchronized section. 

' (This code should use only the resource corresponding to mutexNdx. ) 

' Exit the synchronized section, and release the resourc 

mutexes (mutexNdx) .ReleaseMutex () 
End Sub 


والطريقة الساكنة |ا4†ةW‏ أيضا موروثة من ءال" ه ه۷ الخاصة بالفئة الأب حيث تأخذ مصفوفة من ءأعءعزطاه ×عاں" وتعيد التحكم 
للتطبيق فقط عندما يصبح جميعهم في حالة إشارة وهي مفيدة بشكل خاص عندما لا يمكنك المتابعة إلا عندما تكون جميع المسارات الباقية قد 
أنهت عملها 


' Wait until all resources have been released. 
Mutex.WaitAl 1l (mutexes) 


وهناك مشكلة صغيرة متعلقة بالطريقة |۷314 هي أنه لا يمكن استدعاؤها من المسار الرئيسي في تطبيق مسار الغرفة الوحيدة ماع أك 
rhread Apartment (STA) application‏ مثل تطبیق الکونسول i0۸nاة‌iاممھ‏ eاموnهع‏ أو تطبیق نماذج ویندوز ءس0هہWi‏ 
icationاapp ۴r‏ ففي المسار الرئيسي لتطبيق 5۲۸ يجب عليك التوقف حتى يتم تحرير مجموعة من ال ×عاں عندها يجب عليك 
استخدام اه۷ من مسار منفصل ثم استخدام الطريقة م 1هل.١‏ ه٠۲٠۲‏ على ذلك المسار لإيقاف المسار الرئيسي حتى تعود الطريقة 
اة وفي فيجول بايزيك 2005 والنسخة 2 من الفريموورك يوجد الطريقة الساكنة الجديدة اة 4W١4۸ا”عاك‏ تمكنك من وضع 
ectزob Mute‏ في حالة إشارۃ وانتظار ct‏ eزطہ‏ ×teںM‏ آخر 


' Signal the first mutex and wait for the second mutex to become signaled. 


Mutex.SignalAndWait (mutexes (0), mutexes (1) ) 


وخلافا لجميع أغراض التزامن التي تم ذكرها حتى الآن يمكن ل كاءعزطه ×ع†ں" أن يرتبط باسم الأمر الذي يعد من أهم المزايا لهذه 
الأغراض فأغراض واءعزط ٥‏ ×عاں"/ التي تمتلك نفس الاسم يمكن مشاركتها عبر العمليات ويمكنك إنشاء تواجد ع" هءم| لها كما يلي 


Dim m As New Mutex (False, "mutexname”" ) 


وإن كان الاسم موجودا سابقا في النظام يحصل المستدعي على مرجع له وإلا سيتم إنشاء اءعزطاه ×عاں" جديد بحيث تمكنك هذه الآلية من 
مشاركة objects‏ ×عMut‏ عبر عدة تطبيقات مختلفة وبهذا تتمكن هذه التطبيقات من مزامنة عمليات الوصول للمصادر المختلفة وقد تم 
اکان اي جد فى ازور د2 وف ل ارك 2005 كك من ار ا كن ف السار اتی که ر 


Dim ownership As Boolean 
Dim m As New Mutex (True, "mutexname", ownership) 
If ownership Then 

' This thread owns the mutex. 


End If 


من الاستخدامات الشائعة ل وع×عاںص لع"ص هم هو تحديد فيما إذا كان التطبيق العامل هو الأول أو الوحيد الذي تم تحميله وإن لم تكن هذه 
الحالة يمكن للتطبيق الخروج مباشرة أو الانتظار حتى تنتهي النسخة الأخرى من مهامها كما في المثال 


Sub Main () 
Dim ownership As Boolean 
Dim m As New Mutex (True, "DemoMutex", ownership) 
If ownership Then 
Console.WriteLlLine ("This app got the ownership of Mutex named DemoMutex") 
Console.WriteLine ("Press ENTER to run another instance of this app") 
Console.ReadLine () 
Process.Start (Assembly.GetExecutingAssembly () .GetName () .CodeBase) 
Else 
Console.WriteLlLine ("This app is waiting to get ownership of Mutex named 
DemoMutex"™) 
m.WaitOne () 
ERG ZE 
' Perform the task here. 


Console.WriteLine ("Press ENTER to release ownership of the mutex") 
Console.ReadLine () 

m.ReleaseMutex () 

End Sub 


والطريقة الساكنة ع |ااءأ×٤‏ "هم0 جديدة أيضا في الفريموورك 2 وتقدم طريقة أخرى لفتح ×عاں" على مستوى النظام إdعصه"‏ 
system-wide Mutex object‏ وبعكس باني ال ×ع†ں" تمكنك هذه الطريقة من تحديد درجة التحكم التي تريدها على ال ×مMut‏ 


TEY 

' Request a mutex with the right to wait for it and to release it. 
Dim rights As MutexRights = MutexRights.Synchronize Or MutexRights.Modify 
Dim m As Mutex = Mutex.OpenExisting ("mutexname", rights) 


' Use the mutex her 


Catch ex As WaitHandleCannotBeOpenedException 
' The specified object doesn't exist. 
Catch ex As UnauthorizedAccessException 
' The specified object exists, but current user doesn't have the 
' necessary access rights. 
Catch ex As IOException 
'"' A Win32 error has occurred. 
End Try 


وفي فيجول بايزيك 2005 والفريموورك 2 تظهر الميزة الجديدة الأهم في النوع ×ه ا وهي إمكانية الوصول لقوائم التحكم بالوصول 
access control lists (ACLs)‏ في illموذج‏ عبر llئغرڂض System .Security.AccessControl.MutexSecurity object‏ حیث 


یمکنك تحدید ۸٣1‏ عندما تنشئ غرض ×ع†ں ۷ جدید مستخدما lلÙطرڍڌة JlJ Jوصحلل GetAccessContro|l‏ غرض MutexSecurity‏ 
المرتبط ب ×ع†ں ۷ محدد وتطبیق ۸٣1‏ جدید باستخدام ال¦طرıةڌة SetAccessControl‏ 


Dim ownership As Boolean 
Dim m As New Mutex (True, "mutexname", ownership) 
If Not ownership Then 
' Determine who is the owner of the mutex. 
Dim mutexSec As MutexSecurity = m.GetAccessControl () 
Dim account As NTAccount = DirectCast (mutexSec.GetOwner( _ 
GetType (NTAccount) ), NTAccount) 
Console.WritelLine ("Mutex is owned by {0}", account) 
End If 


The Semaphore Type 

تقدم الفريموورك 2 و فيجول بايزيك دوت نیت نوعا جدیدا وهو eضty Semaphore‏ الذي yرتjs‏ leذ” Win32 semaphore‏ 
tءهزطه‏ وخلافا لبقية أغراض المسارات الموجودة في المكتبة طامعءمم فهذا النوع تم تعريفه في المكتبة |ا١.٠اءلء‏ وهو يستخدم عندما 
تريد تحديد حد أقصى (عدد )١‏ من المسارات التي يمكن تنفيذها في جزء معين من الكود أو للوصول إلى مصدر معين ويمتلك عددا ابتدائيا 
وعددا أقصى ويجب عليك تمرير هذه القيم لبانيه 


' A semaphore that has an initial count of 1 and a maximum count of 2. 


Dim sem As New Semaphore (l1, 2) 


يحاول المسار أخذ ملكية ال ٠إ0طمةم”ءء‏ باستدعاء الطريقة ۷0٠‏ وإن كان العدد الحالي أكبر من الصفر يتم إنقاصه وتعود الطريقة 
مباشرة وإلا تنتظر حتى یحرر مسار آخر semaphore‏ أو إنقضاء الوقت المحدد بالمحدد الاختياري ويحرر المسار semaphore‏ 
باستدعاء الطريقة مءهم|مR‏ مما يزيد العدد بمقدار 1 أو بقيمة محددة ويعيد قيمة العدد السابق 


a 


Dim sem As New Semaphore (2, 2) 

Next statement brings count from 2 to 1. 
sem.WaitOne () 

' Next statement brings count from 1 to 2. 
sem. Release () 

' Next statement attempts to bring count from 2 to 3, but 
throws a SemaphoreFullException. 

sem. Release () 


وبشکل أساسي ستستخدم الغرض las Semaphore‏ يلي 


' Initial count is initially equal to max count. 


Dim sem2 As New Semaphore (2, 2) 


Sub Semaphore Example () 
' Wait until a resource becomes available. 
sem2.WaitOne () 
' Enter the synchronized section. 
' Exit the synchronized section, and release the resourc 
sem2.Release () 
End Sub 


تذکر دوما استخدام الكتلة Try...Finally‏ للتأكد من أن ال semaphore‏ قد تم تحریرہ حتی لو حدث استثناء ما وتماما کال وم×عاںم یمکن 
ل semaphores‏ امتلاك اسم ومشاركته عبر العمليات وعندما تحاول إنشاء غرض ۸٥۲٤۴5‏ مھ ٣ءء‏ موجود سابقا یتم تجاهل العدد والحد 


م 


الاقصى 


Dim ownership As Boolean 
Dim sem3 As New Semaphore (2, 2, "semaphoreName", ownership) 
If ownership Then 

' Current thread has the ownership of the semaphore. 


End If 


ويدعم الغرض ١۲٥۸مة‏ "ه5 أيضا ال وا٣۸‏ التي يمكن تمرير ها للباني حيث تتم القراءة بواسطة الطريقة |هإ٤"هZ٣ءءعع‏ ۸م والتعديل 
بواسطة الطريقة ا0٣٣‏ ه٣٤‏ ءءعءء ۸ه ومن الضروري أن تلاحظ أن النوع ×عاں" والنوع ١٠۴مطمةص‏ ء5 تتم وراتتهما من الفئة الأساسية 
WaitHandle‏ لذا یمکن تمریر هما كمحددات للطرائa‏ iSlullة laa WaitHandle gill SignalAndWait sı WaitAll ı WaitAny‏ 
يمكنك من مزامنة المصادر بسهولة والتي تكون محمية بواسطة أيا من هذه الأغراض كما في الكود 


' Wait until two mutexes, two semaphores, and one event object become signaled. 
Dim waitHandles() As WaitHandle = {mutex1l, mutex2, sem1l, sem2, event1} 
WaitHandle.WaitAll (waitHandles) 


The ReaderWriterLock Type 

العديد من المصادر في العالم الحقيقي يمكن إما القراءة منها أو الكتابة إليها وهي تدعم في الغالب إما مجموعة قراءات متعددة أو 

عملية كتابة وحيدة يتم تنفيذها في لحظة معينة فمثلا يمكن لعدة عملاء القراءة من ملف بيانات أو جدول في قاعدة بيانات ولكن إن تمت الكتابة 
للملف أو الجدول فلا يمكن حدوث أي عمليات قراءة أو كتابة على ذلك المصدر حيث يمكنك تعريف قفلا لكتابة واحدة أو عدة قراءات بدلالة 
الغرض )ع ٥‏ امامل Rea‏ واستخدام هذا الغرض يعتبر رؤية إلى الأمام فكل المسارات التي تريد استخدام مصدر معين يجب عليها 
استخدام نفس الغرض )ع 0ا۲ع|٣‏ مه هم8 وقبل محاولة القيام بأي عملية على ذلك المصدر يجب على المسار استدعاء إما الطريقة 
AcquireReaderLock‏ أو الطريقة )ع ما ع†i Acquire Wr‏ وذلك اعتمادا على العملية التي يتم تنفيذها وهذه الطرائق تقوم بإيقاف المسار 
الحالي حتى يتم الحصول على ذلك المصدر وأخيرا على المسار استدعاء الطريقة ockاReleaseReader‏ أو الطريقة 
ReleaseWriterLock‏ عندما تنهي عملية القراءة أو الكتابة على ذلك المصدر والمتال التالي يقوم بإنشاء 10 مسارات تقوم بعملية قراءة أو 
كتابة على مصدر مشترك 


Dim rwl As New ReaderWriterLock () 
Dim rnd As New Random () 


Sub TestReaderWriterLock () 
For i As Integer = 0 To 9 
Dim t As New Thread(AddressOf ReaderWriterlLock_ Task) 
te. SEAEE(L) 
Next 


End Sub 


Sub ReaderWriterLock Task (ByVal obj As Object) 
Dim n As Integer = CInt (obj) 
' Perform 10 read or write operations. (Reads are more frequent.) 
For i As Integer = 1 To 10 

If rnd.NextDouble < 0.8 Then 
' Attempt a read operation. 
rwl.AcquireReaderLock (Timeout.Infinite) 
Console.WritelLine ("Thread #{0} is reading", n) 
Thread.Sleep (300) 
Console.WritelLine ("Thread #{0} completed the read operation", Nn) 
rwl.ReleaseReaderLock () 

Else 


' Attempt a write operation. 
rwl.AcquireWriterLock (Timeout. Infinite) 
Console.WriteLlLine ("Thread #{0} is writing", n) 
Thread.Sleep (300) 
Console.WritelLine ("Thread #{0} completed the write operation", Nn) 
rwl.ReleaseWriterLock () 
End If 
Next 
End Sub 


وعندما تشغل هذا الكود سترى أن عدة مسارات يمكنها القراءة بنفس الوقت والمسار الذي يقوم بالكتابة يوقف جميع المسارات الأخرى ويمكن 
للطريقتاj Acquire ReaderLock‏ و Acquire WriterLock‏ أخذ محدد عبارة عن زمن انتهاء timeout‏ وذلك بقيمة من النوع 
٣ةمكهnصiا‏ أو بعدد من الميللي ثانية ويمكنك اختبار فيما إذا تم الحصول على القفل بنجاح باستخدام الغخصlئûصض lsReaderlockHeld‏ و 
|W riterLockHeld‏ القابلة للقراءة فقط إذا مررت قيمة غير Timeout.|nfi nite‏ 


' Attempt to acquire a reader lock for no longer than 1 second. 
rwl.AcquireWriterLock (1000) 
If rwl.IsWriterLlLockHeld Then 

' The thread has a writer lock on the resource. 


End If 


والمسار الذي يمتلك قفل القراءة يمكنه الترقية إلى قفل للكتابة باستدعاء الطريقة )ع مااع † | 0W‏ اeهdمraىمpل‏ والعودة ثانية لوضع القراءة 
باستخدام الطريقة ow ngrade-From Wri † er] 0c)‏ والشئ الرائع بخصوص الأغراض )ع هاا عامل Rea‏ هي أنها أغراض خفيفة 
بحيث يمكن استخدامها عددا كبيرا من المرات دون أن تؤّثر على الأداء بشكل ملحوظ وبما أن الطرائق AcquireReaderLock‏ و 
iter lock)‏ uireWوc‏ تأخذان وقت انتهاء فالتطبيق المصمم بشكل جيد يجب أن لا يعاني من أقفال ميتة ومع ذلك يمكن حصول حالة قفل 
ميت عندما يكون مساران ينتظران مصدرا محجوزا من قبل مسار لا يقوم بتحريره حتى انتهاء العملية الجارية 


The Interlocked Type 
يزودنا النوع ckedداnter!ا بطريقة للقيام بعمليات دقيقة لزيادة أو إنقاص قيمة متغير مشترك وهذه الفئة تعرض فقط طرائق‎ 
ساكنة (لا نحتسب هنا ما تمت وراثته من ء#زط0) انظر إلى الكود التالي‎ 


' Increment and Decrement methods work with 32-bit and 64-bit integers. 
Dim lockCounter As Integer 


' Increment the counter and execute some code if its previous value was zero. 
If Interlocked. Increment (lockCounter) = 1 Then 


BEBQd LÊ 
' Decrement the shared counter. 
Interlocked. Decrement (lockCounter) 


والطريقة ۸50 جديدة في الفريموورك 2 وهي تمكنك من زيادة أعداد حقيقية ٣ع‏ "| من عيار 32 أو 64 بت بقيمة محددة 


If Interlocked.Add (lockCounter, 2) <= 10 Then... 


وتوفر الفئة لع )هام١٠‏ طريقتان ساكنتان أخريان الطريقة مع هطء×»ع التي تمكنك من تحديد قيمة من اختيارك إلى متغيرات من النوع 
Integer‏ أو Long‏ أو Single‏ أو eاDoub‏ أو ntPtrا‏ أو ectزطO‏ وتعيد القيمة السابقة وبما أن لها نسخة محملة زائدا تأخذ محددا من 
النوع زط0 لهذا يمكنك أن تجعلها تعمل لأي نوع مرجعي كالنوع ع" آ٣‏ كما في المثال 


Dim s1 As SEEING = "123" 
Dim s2 As String = Interlocked.Exchange (s1, "abc") 
Console.WriteLlLine ("s1={0}, s2={1}", sl, S2) 


والطريقة مع ة۸ ×۴ع۲هممهع تعمل بأسلوب مشابهة ولكنها تقوم بالتبديل فقط إذا كان موقع الذاكرة مساوي لقيمة محددة يتم تمريرها لها 


The ManualResetEvent, AutoResetEvent, and EventWaitHandle Types 


هذه الفئات الثلاثة تعمل بشكل متشابه Event WaitHandle sy AutoResetEvent yı ManualResetEvent‏ والفئة الأخيرة 
هي الفئة الأب للفئتان الأولان وقد تمت إضافتها في الفريموورك 2 على الرغم el AutoResetEvent s ManualResetEvent jÎ ja‏ 
يتم إهمالهما بعد وأثناء العمل يمكنك استبدالهما بالفئة الجديدة ءال" ة ١۸۷۳ء‏ التي تعطيك مزيدا من المرونة عند التعامل. والنوعان 
ManualResetEvent‏ و utoResetEvent‏ مفیدان بشکل خاص عندما ترید إیقاف مسار أو أکثر بشکل مؤقت حتی یخبرنا مسار آخر 
بأنه لا مانع من المتابعة وتستخدمهما لإيقاظ مسار مثل إجراء معالجة الحدث في مسار متوقف ولكن لا تنخدع بوجود 1٣۷6ع‏ في أسمائهما 
فلا يمكنك استخدام إجراءات معالجة الحدث التقليدية مع هذه الأغراض. وكائن من أحد هذين النوعين يمكن أن يكون في حالة إشارة أو عدم 
إشارة كعاة١عاك5مل/ءاهمعاك‏ وهذه القيمة لا تملك أي معنى خاص بحيث يمكنك اعتبارها كحالة تشغيل/إيقاف حيث ستمرر الحالة الابتدائية 
للباني وأي مسار يستطيع الوصول لذلك الغرض يمكنه ضبط تلك الحالة إلى 4ع اه عك باستخدام الطريقة ه5 أو يستخدم الطريقة موم 
لإعادة الحالة إلى 4اه" عأكئمل ويمكن للمسارات الأخرى استخدام الطريقة "٠‏ 0ا۷ للانتظار حتى تصبح في حالة إشارة dعاة٠‏ عاك أو 
حتى انتهاء فترة الانتظار 


' Create an auto reset event object in nonsignaled state. 
Dim are As New AutoResetEvent (False) 

' Create a manual reset event object in signaled state. 
Dim mre As New ManualResetEvent (True) 


والاختلاف الوحيد بين الغرضان Manua|Rese Event‏ و AutoResetEvent‏ هو أن الأخير يعيد ضبط نفسه آليا (إيصبح في حالة عدم 
إشارة ١عاة”عاوءمل)‏ وذلك مباشرة بعد أن يتم صد المسار عندما تبداً الطريقة ۷1۲0۸٥‏ ویوقظ الغرض ٥۸٥٥۲٤۷٥۸۲‏ ں۸ فقط واحد 
من المسارات المنتظرة عندما يصبح في حالة إشارة بينما الغرض ۸1ء۷٤ Manua|Rese†‏ یوقظ جمیع المسارات المنتظرة ويجب أن يتم 
إعادة ضبطه يدويا إلى حالة عدم إشارة كما هو ظاهر من اسمه وكما ذكر سابقا يمكنك استبدال الغرضين g ManualResetEvent‏ 
utoResetEvent‏ بالغرض eاd a1112‏ n1WہEven‏ کما یظھر بالکود التالي 


' These statements are equivalent to the previous code example. 
Dim are As New EventWaitHandle (False, EventResetMode.AutoReset) 
Dim mre As New EventWaitHandle (True, EventResetMode.ManualReset) 


وتكون أغراض ال "۷ع مفيدة خاصة في حالات المنتج والمستهلك فربما يكون لديك إجراء وحيد في مسار يقوم بتقييم بعض البيانات أو 
بالقراءة من القرص أو منفذ تسلسلي أو غيرها ويستدعي الطريقة 1ء5 على غرض متزامن فيتم إعادة تشغيل مسار أو أكثر لمعالجة تلك 
البيانات ويجب عليك استخدام الغرض Auto Resء†٤ ۷e۸‏ أو الغرض ءال" a1۸12‏ ventWع‏ مع الخيار Aut0 Rest‏ إذا كان هناك مسار 
مستهلك وحيد سيقوم بمعالجة تلك البيانات كما يجب عليك استخدام llغرض ga Event WaitHandle ضرغll şİ ManualResetEvent‏ 
الخيار مءعua|۸ںمه"‏ إذا كان يجب معالجة البيانات باستخدام جميع المسارات المستهلكة, 


زين المقال القالي كيف يمك أن بكرن لفك غد مسارات مج تقرح ية البخت عن ملف في غدة مجلدات فة في تتس الوشت ولك 
يوجد مسار مستهلك وحيد يقوم بجمع النتائج من تلك المسارات ويستخدم المثال الغرض Auto ۸ عءع†٤۷ ٥۸٤‏ لإيقاظ المسار المستهلك عندما 
يتم إضافة اسم ملف جديد للقائمة (ع” ٣ك‏ 1)0۴ءآا ويستخدم أيضا الفئة 4ع)عهاام†م| لإدارة عدد المسارات العاملة حتى يعلم المسار 
الرئيسي أنه لم تعد توجد أي بيانات أخرى لاستهلاكها 


' The shared AutoResetEvent object 

Public are As New AutoResetEvent (False) 

' The list where matching filenames should be added 
Public fileLlList As New List (Of String) () 


' The number of running threads 
Public searchingThreads As Integer 

'" An object used for locking purposes 
Public lockObj] As New Object () 


Sub TestAutoResetEvent () 
' Search *.zip files in all the subdirectories of C. 
For Each dirname As String In Directory.GetDirectories ("C:\") 


Interlocked. Increment (searchingThreads) 


Create a new wrapper class, pointing to a subdirectory. 


Dim sf As New FileFinder () 
sf.StartPath = dirname 
sf.SearchPattern = "*.Zzip" 


Create and run a new thread for that subdirectory only. 


Dim t As New Thread(AddressOf sf.StartSearch) 


SESE.) 


ع 
Next‏ 


' Remember how many results we have so far. 


Dim resCount As Integer = 0 
Do While searchingThreads > 0 


Wait until there are new results. 


are.WaitOne () 


SyncLlLock lockOb] 


' Display all new results. 


For i As Integer = resCount To filelist.Count = 1 
Console.WriteLlLine (fileLlList (i) ) 

Next 

' Remember that you've displayed these filenames. 

resCount = fileLlist.Count 


End SyncLock 


ole.WriteLine ("") 
ole.WriteLine ("Found {0} files", resCount) 


Loop 
Cons 
Cons 
End Sub 


وكل مسار إجرائي يعمل ضمن غرض ۲٠٥ل” ۴|٠۴‏ مختلف الذي يجب أن يكون قادرا على الوصول إلى متغيرات عامة محددة في الكود 


السا 


بی 


Class FileFinder 

Public StartPath As String ' The starting search path 

Public SearchPattern As String ' The search pattern 

Sub StartSearch () 
Search (Me.StartPath) 
' Decrease the number of running threads befor xiting. 
Interlocked. Decrement (searchingThreads) 
' Let the consumer know it should check the thread counter. 
are. Set () 

End Sub 


' This recursive procedure does the actual job. 


Search (ByVal path As String) 
Get all the files that match the search pattern. 


f files IsNot Nothing AndAlso files.Length > 0 Then 
' Ensure found files are added as an atomic operation. 
SyncLock lockOb] 
' Add all found files. 


Sub 


Dim files() As String = Directory.GetFiles (path, SearchPattern) 
If there is at least one file, let the main thread know about it. 


I 


filelList.AddRange (files) 
' Let the consumer thread know about the new filenames. 
are.Set () 

End SyncLock 

BRR EE 


' Repeat the search on all subdirectories. 
For Each dirname As String In Directory.GetDirectories (path) 
Search (dirname) 
Next 
End Sub 
End Class 


والنسخة 2 من الفريموورك وفيجول بايزيك 2005 wîتڏم EventWaitHandle‏ بدلا عنù gÎ AutoResetEvent‏ 
NanuaResetEvent‏ مما يعطيك ميزة هامة وهي إمكانية إنشاء غرض مسمى على مستوى النظام يمكن مشاركته مع العمليات الأخرى 
والصيغة العامة لباني عمال" ه١1۷2"‏ مvع‏ مشابهة لتلك الخاصة بالفئة Mute×‏ 


Create a system-wide auto reset event that is initially in the signaled state. 

Dim ownership As Boolean 

Dim ewh As New EventWaitHandle (True, EventResetMode.AutoReset, "eventname”", 

ownership) 

If ownership Then 
' The event object was created by the current thread. 


End If 


كما يمكنك استخدام الطريقة عہ اء¡ ×۴" عم لفتح غرض حدث موجود 


' This statement throws a WaitHandleCannotBeOpenedException if the specified 
' event doesn't exist, or an UnauthorizedAccessException if the current 

' user doesn't have the required permissions. 

ewh = EventWaitHandle.OpenExisting ("eventname", _ 
EventWaitHandleRights.FullControl) 


والميزة الأخرى الهامة في أغراض الأحداث واءعزطه "٠م۷٠‏ في الفريموورك 2 هي دعم ئ1٣۸‏ باستخدام ائÛطرlئJ SetAccessControl‏ 
و اAccessContro et‏ والتي تأخذ وتعید کائن من النوع Event WaİtHand|eSecu ry‏ حيث يمكنك استخدامه بنفس طریقة استخدام 
مثيلاتها في الغرض ×ه†ں 1 وأغراض الدوت نيت الأخرى التي تدعم وا٤۸‏ 


كيفية تنفيذ عملية في مسار آخر وإظهار النتيجة في التحكمات على النموذج 


سألني أحد الإخوة عن مشكلة واجهته عند تنفيذ عملية معينة على مسار آخر ومحاواته إظهار النتيجة على النموذج فإذا افترضنا أنه 
لدينا إجراء بسيطا ينفذ عملية ما ونفذناه على مسار آخر لهء۲ط] غير المسار الرئيسي الذي تنفذ عليه عمليات البرنامج وأن ذلك الإجراء 
يحتوي على كود يقوم بضبط قيمة الخاصية 1٠×‏ لصندوق نصوص على النموذج فعند تنفيذ الكود ستحصل على رسالة خطاً 


Cross-thread operation not valid: Control 'TextBox1' accessed from a thread other than the thread it was 
created on. 


وإذا أردت توليد رسالة الخطأ السابق بنفسك أنشئ مشروعا جديدا ضع عليه صندوق نصوص وزر واجعل كود النموذج مطابقا لما يلي تم 
قم بتشغيل البرنامج وستحصل على رسالة الخطاً السابقة 


Imports System. Threading 
PUGLILE Cla358 Forml 
Private SU Büuttonl CILCK(). Handles Buttonl.CILIiek 


Dim th As New Thread (AddressOf DoLongOperation) 
ERMESESAEE0 


End Sub 
Private Sub DoLongOperation () 


Me.TextBox1.Text = "Something" 
ERA Sub 


End Class 


الحل الذي أقوم باستخدامه عادة لحل هكذا مشكلة هو إنشاء فئة ووهاع تقوم بتنفيذ العملية على المسار الثاني وتعيد النتيجة للنموذج من خلال 
إطلاق حدث يعيد القيم الناتجة عن عملية المعالجة للنموذج فربما لا تكون هذه هي الطريقة الأفضل في جميع الحالات ولكنها طريقتي على 
كل حال وسأقوم بشرحها ثم يمكننا النقاش وتجربة أية حلول أخرى لتجاوز هذه المشكلة وسأطرحها عبر تنفيذ عداد بسيط للوقت فربما 
ستستخدم أنت هذه الطريقة للبحث عن ملفات أو تنفيذ عمليات معالجة معقدة تستغرق وقتا طويلا ولكنني هنا اخترت مثالا يعيد قيمة وحيدة 
بحيث يكون بسيطا قدر الإمكان 


الآن سأقوم بإضافة فة ها٣‏ جديد للمشروع يتم عبره تنفيذ العملية الطويلة التي نريد تنفيذها على مسار آخر وسأقوم بتسميتها 
MyStopW atch‏ في الوقت الحالي ويما أننا سنتعامل مع المسارات سنحتاج للاستيراد التالي قبل تعريف الفئة 


Imports System. Threading 


سأآقوم بتعريف فئة فرعية داخل الفنة MyStop Wah‏ باسم Return Value EventArgs‏ سأستخدمها لاحقا لإطلاق الحدث الذي سيعيد 
النتيجة إلى النموذج وهذه يجب أن تكون موروتة من الفئة ءع۲ "هع بما أنها فئة خاصة بإعادة قيم الحدث الذي سيتم إطلاقه وسأعرف 
فيها خاصية وحيدة ع ها۷ Ru‏ ستكون للقراءة فقط بما أننا لن نحتاج لضبط قيمتها إلا من خلال باني الفئة تعيد القيمة وباني للفئة يمرر 
له قيمة نصية وحيدة تمثل القيمة المعادة وبهذا یکون کود الفنُة s‏ ع E۷٥1۸‏ ع Ret ur ٣۷ا u‏ كما يلي 


Public Class ReturnValueEventArgs 
Inherits EventArgs 


PEIvVatê®: _RetUrnVaLlüê A§ SEEING 

Public ReadOnly Property ReturnVlaue() As String 
GEE 
Return _ReturnValue 

End Get 

End Property 


Public Sub New (ByVal RetVal As String) 
_ReturnValue = RetVal 
ERG Sub 


End Class 


ضمن كود الفنة ةا Wمه†MyS‏ وبعد نهاية تعريف الفئة ءع۲ ٤۷٥٣۲۸‏ عاج Return۷‏ نقوم بتعريف الحدث الذي سنقوم بإطلاقه ليعيد 
القيمة إلى النموذج ومن أجل الالتزام بتنسیق الأحداث کما نری في التحكمات والفئات قمنا بتعريف الفئة ReturnValueEventArgs‏ وبهذا 
يكون تعريف الحدث في قسم تعريف المتغيرات العامة في الفنة امه tكMy‏ كما يلي 


Public Event ReturnValue (ByVal sender As Object, ByVal e As ReturnValueEventArgs) 
کما يلي‎ St وهو من النوع هسمه‎ Myr ime باسم‎ Mysto pW 2-1 عرف متغیرا عاما على مستوی الفنة‎ 
Private _MyTimer As Stopwatch 


حيث سنستخدمه كعداد للوقت من أجل الحصول على قيمة ليتم إعادتها ضمن إجراء المعالجة الذي سيتم تتفيذه على المسار الآخر بحيث 
سيكون كود إجراء المعالجة الذي سينفذ على المسار الثاني كما يلي 


Private Sub DoProcessing () 
Do 
Dim Ret = MyTimer.Elapsed.Hours & ":" & 
_MyTimer.Elapsed.Minutes & ":" & 
_MyTimer.Elapsed.Seconds & ":" & 
_MyTimer.Elapsed.Milliseconds 


RaiseEvent ReturnValue (Me, New ReturnValueEventArgs (Ret) ) 
Loop UnEILL _MyTimer:lsRünning = False 
ER@ SU 


حيث وضعنا قيمة العداد في متغير نصي 1ء8 ثم استخدمنا الدالة خ" مع عءاجR‏ لإطلاق الحدث عمںاة۷٣۲ں†هR‏ حيث القيمة ٠‏ التي تشير 
للفئة الحالية كبارمتر أول للحدث Return Value‏ يكون المحدد الثاني للحدث عبارة عن كيان ce‏ nstanا‏ من الفئة 
Return alueEventAr gs‏ التي نمرر لبانیھا المتغیر R٤‏ الذي يشكل القيمة المعادة من الخاصية aueاV Return‏ العائدة للفئة 
sئValueEventArg Return‏ عندما سنستقبلھا من النموذج 


وسيكون لدينا إجراء لبدء تنفيذ المؤقت على المسار الثاني باسم |٥۲‏ آ٣2†؟‏ بحيث يكون كوده على الشكل 


PUBDLLE Sub: StartTimer() 
_MyTimer.Reset () 
_MyTimer.Start () 


Dim th As New Thread (AddressOf DoProcessing) 
ER. SEA E) 
ERG Süb 


حيث قمنا بتصفير العداد وبدئه ثم عرفنا مسارا جديدا طا يقوم بتنفيذ الإجراء ع”أءومع ه٣٥00‏ ومن أجل إيقاف العداد سنحتاج لإجراء 
Stop ime‏ یکون کودہ علی الشکل 
Public Sub StopTimer ()‏ 


_MyTimer.Stop () 
End Sub 


وبهذا تكون قد اكتملت فئتنا التي ستقوم بعملية المعالجة على مسار تاني وتعيد قيمة نصية سنقوم بعرضها في صندوق نصوص لاحقا ويكون 
بذلك الكود الكامل لهذه الفئة 


EventArgs (Ret) ) 


Imports System. Threading 


Public Class MyStopWtach 


Public Class ReturnValueEventArgs 
Inherits EventArgs 


Private _ReturnValue As String 


Public ReadOnly Property ReturnVlaue() As String 


& 
& 


Get 

Return _ReturnValue 
ERM. GE 
End Property 


Public Sub New (ByVal RetVal As String) 
_ReturnValue = RetVal 
ERG SUB 


End Class 


Public Event ReturnValue (ByVal sender As Object, 
ByVal e As ReturnValueEventArgs) 


Private _MyTimer As New Stopwatch 


Public Sub StartTimer () 
_MyTimer.Reset () 
_MyTimer.Start () 


Dim th As New Thread (AddressOf DoProcessing) 
ERASEaE E () 
ERG: Sab 


Private Sub DoProcessing () 
Do 
Dim Ret = MyTimer.Elapsed.Hours & ":" & 
_MyTimer.Elapsed.Minutes & ":" 


_MyTimer.Elapsed.Seconds & ":" 
_MyTimer.Elapsed.Milliseconds 


RaiseEvent ReturnValue (Me, New ReturnValue!l 


Loop Until _MyTimer.IsRunning = False 
ERAQ Sub 


Public Sub StopTimer () 
_MyTimer.Stop () 
ERG Sub 


Clasê 


نعود للنموذج الخاص بالمشروع الذي نحتاج لوجود صندوق نصوص وزرين عليه للقيام بتجربة الفئة الجديدة حيث سنقوم بتعريف متغير 
خاص على مستوی النموذج باسم 8۲ 0y»‏ من نوع فتتنا 21 ۷م٥5‏ وباستخدام العبارة ۷۸٤۷٥٣‏ التي ستمكننا من استقبال 


الأحداث التي ستطلقها فئتنا 


Private WithEvents MyTimer As New MyStopWtach 


وسيكون كود الزرين من أجل بدء وإيقاف المؤقت باستخدام فئتنا السابقة كما يلي 


PEivatêe Sûb. BUttonNnl1_ CI1IicK() Handles. Button1. Click 


MyTimer.StartTimer () 


End Sub 


Private Sub Biütton2 Click() Handles Button2:Click 
MyTimer.StopTimer () 
ERGE. SU 


الآن أنشئ معالج للحدث مع ں ھا ۷ہ ا ںtءR‏ العائد للمتغیر MyTimer‏ واجعله بحیث یکون الکود فيه کالتالي ثم جرب تشغیل البرنامج 


FEIVaEE SUS MyTimer RetüuriValüé (ByVal sender A5 Object, _ 
ByVal e As MyStopWtach.ReturnValueEventArgs) Handles MyTimer.ReturnValue 


Me.TextBox1.Text = e.ReturnVlaue 


ERI SUS 


ولمعالجة هذه النقطة والتخلص من رسالة الخطاً سنحتاج Invoke Jaal‏ للإجراء MyTimer_ReturnValue‏ حتی نستطیع استخدام القيم 
المعادة منه في ضبط قيم خصائص الأتحكمات على النموذج وفي حالتنا هنا الخاصية 1٥×‏ لصندرق النصوص والعملية ببساطة ستتم كما يلي 


في قسم المتغيرات العامة في النموذج سنقوم بتعريف إجراء مفوض مهعم ام0 يحمل نفس توقيع الۈؤجرlء MyTimer_Retur Value‏ 
وبدون جسم للإجراء كما يلي 


PFfivatë Delegate Süb MyTimer ReturnValueDelegate (ByVal sender As Object, _| 
ByVal e As MyStopWtach.ReturnValueEventArgs) 


ويكون الكود الذي سينفذ المهمة بصورة صحيحة كما يلي 


Private SUG MyTimer ReturiValuée (ByVal sender A5 Object, | 
ByVal e As MyStopWtach.ReturnValueEventArgs) Handles MyTimer.ReturnValue 


If Me.TextBox1.InvokeRequired = True Then 
Dim d As New MyTimer ReturnValueDelegate (AddressOf MyTimer ReturnValue) 
Me.Invoke (d, New Object() {sender, e}) 

Else 


Me.TextBox1.Text = e.ReturnVlaue 
End: TÊ 
ER SUS 


حيث فحصنا قيمة الخاصية القابلة للقراءة فقط 4ء أu‏ »۸ء )۷| لصندوق النصوص فإن كان مءءاه۴ نقوم بضبط قيمة الخاصية †×م1 
باستخدام القيمة المعادة من الحدث مباشرة بدون أي مشاكل وإن كانت مں 1٣‏ عندها لن نستطيع ضبط القيمة مباشرة كي لا نحصل على الخطاً 
الوارد في بداية المقال عندها سنعرف متغير ل من نوع الإجراء المفوض ع‌lغimer_ReturnValueDelegaا My‏ ونمرر له عنوان 
الإجراء My اrimer_Return Value‏ ثم استخدمنا الطريقة م0kام!‏ العائدة للنموذج لتنفيذ نسخة آمنة من الحدث 

Ny اimer.Return Value‏ تمكننا من ضبط القيم المعادة إلى التحكمات وذلك بتمرير المتغير ل كمحدد أول للخاصية ع |٣۷)‏ ويكون 
المحدد الثاني للخاصية |٣۷)‏ هو مصفوفة من النوع ٤زط0‏ یتم تمرير محددات الإجراء ع My rime r_Retu r۸۷ u‏ کعناصر لھا 


وفيما يلي الكود الكامل للنموذج 
PFUGILE Clas FOFML‏ 


Private Delegate Sub MyTimer ReturnValueDelegate (ByVal sender As Object, 
ByVal e As MyStopWtach.ReturnValueEventArgs) 


Private WithEvents MyTimer As New MyStopWtach 


PEFi¥atê Sûüb. BüUttonl. CIick() Handles BüUttonl.ClIick 
MyTimer.StartTimer () 


Private Süb. Bütton2 Click() Handles Bütton2.CLICK 
MyTimer.StopTimer () 


Private Sub MyTimer ReturnValue (ByVal sender As Object, _ 
ByVal e As MyStopWtach.ReturnValueEventArgs) Handles _ 


ERN SUB 


ERG. SUD 


MyTimer.ReturnValue 


If Me.TextBox1.InvokeRequired = True Then 
Dim d As New MyTimer ReturnValueDelegate( _ 
AddressOf MyTimer ReturnValue) 


New Object () {sender, e}) 


Me.TextBox1.Text = e.ReturnVlaue 


Me. Invoke (d, 
Else 


ERO TEE 
ERO SUS 


End Class 


